home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / smfdoo1a / frmsearc.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-07  |  24.6 KB  |  643 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Begin VB.Form frmSmfSearchEngine 
  5.    BackColor       =   &H00000000&
  6.    Caption         =   "SMF Search Engine"
  7.    ClientHeight    =   8535
  8.    ClientLeft      =   60
  9.    ClientTop       =   405
  10.    ClientWidth     =   10455
  11.    Icon            =   "frmSearchengine.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   8535
  14.    ScaleWidth      =   10455
  15.    Begin VB.TextBox txtlocation 
  16.       Height          =   285
  17.       Left            =   3480
  18.       TabIndex        =   24
  19.       Top             =   120
  20.       Width           =   4695
  21.    End
  22.    Begin VB.TextBox txtaddress 
  23.       Height          =   285
  24.       Left            =   8040
  25.       TabIndex        =   22
  26.       Top             =   120
  27.       Visible         =   0   'False
  28.       Width           =   495
  29.    End
  30.    Begin VB.CommandButton Command4 
  31.       Caption         =   "Add To Favorites"
  32.       Height          =   255
  33.       Left            =   1320
  34.       TabIndex        =   21
  35.       Top             =   120
  36.       Width           =   1335
  37.    End
  38.    Begin VB.CommandButton Command3 
  39.       Caption         =   "Stop"
  40.       Height          =   255
  41.       Left            =   8520
  42.       TabIndex        =   20
  43.       Top             =   120
  44.       Width           =   495
  45.    End
  46.    Begin VB.CommandButton Command2 
  47.       Caption         =   "Foward"
  48.       Height          =   255
  49.       Left            =   9720
  50.       TabIndex        =   19
  51.       Top             =   120
  52.       Width           =   650
  53.    End
  54.    Begin VB.CommandButton Command1 
  55.       Caption         =   "Back"
  56.       Height          =   255
  57.       Left            =   9120
  58.       TabIndex        =   18
  59.       Top             =   120
  60.       Width           =   495
  61.    End
  62.    Begin VB.Timer Timer1 
  63.       Interval        =   100
  64.       Left            =   10440
  65.       Top             =   0
  66.    End
  67.    Begin VB.TextBox Text1 
  68.       Height          =   285
  69.       Left            =   10560
  70.       TabIndex        =   17
  71.       Text            =   "Text1"
  72.       Top             =   120
  73.       Visible         =   0   'False
  74.       Width           =   255
  75.    End
  76.    Begin VB.CommandButton cmdSearch 
  77.       Caption         =   "Search Again"
  78.       Height          =   255
  79.       Left            =   120
  80.       TabIndex        =   15
  81.       Top             =   120
  82.       Width           =   1095
  83.    End
  84.    Begin VB.TextBox txtSearch 
  85.       Height          =   195
  86.       Left            =   -840
  87.       TabIndex        =   13
  88.       Top             =   -240
  89.       Width           =   855
  90.    End
  91.    Begin TabDlg.SSTab SSTab1 
  92.       Height          =   8055
  93.       Left            =   0
  94.       TabIndex        =   0
  95.       Top             =   480
  96.       Width           =   10455
  97.       _ExtentX        =   18441
  98.       _ExtentY        =   14208
  99.       _Version        =   393216
  100.       Tabs            =   12
  101.       Tab             =   6
  102.       TabsPerRow      =   6
  103.       TabHeight       =   520
  104.       BackColor       =   0
  105.       TabCaption(0)   =   "Yahoo"
  106.       TabPicture(0)   =   "frmSearchengine.frx":08CA
  107.       Tab(0).ControlEnabled=   0   'False
  108.       Tab(0).Control(0)=   "YahooBrowser"
  109.       Tab(0).ControlCount=   1
  110.       TabCaption(1)   =   "Excite"
  111.       TabPicture(1)   =   "frmSearchengine.frx":08E6
  112.       Tab(1).ControlEnabled=   0   'False
  113.       Tab(1).Control(0)=   "exciteBrowser1"
  114.       Tab(1).ControlCount=   1
  115.       TabCaption(2)   =   "Alta Vista"
  116.       TabPicture(2)   =   "frmSearchengine.frx":0902
  117.       Tab(2).ControlEnabled=   0   'False
  118.       Tab(2).Control(0)=   "AltaVistaBrowser"
  119.       Tab(2).ControlCount=   1
  120.       TabCaption(3)   =   "Lycos"
  121.       TabPicture(3)   =   "frmSearchengine.frx":091E
  122.       Tab(3).ControlEnabled=   0   'False
  123.       Tab(3).Control(0)=   "LycosBrowser"
  124.       Tab(3).ControlCount=   1
  125.       TabCaption(4)   =   "Dog Pile"
  126.       TabPicture(4)   =   "frmSearchengine.frx":093A
  127.       Tab(4).ControlEnabled=   0   'False
  128.       Tab(4).Control(0)=   "DogPileBrowser"
  129.       Tab(4).ControlCount=   1
  130.       TabCaption(5)   =   "Look Smart"
  131.       TabPicture(5)   =   "frmSearchengine.frx":0956
  132.       Tab(5).ControlEnabled=   0   'False
  133.       Tab(5).Control(0)=   "LookSmartBrowser"
  134.       Tab(5).ControlCount=   1
  135.       TabCaption(6)   =   "Direct Hit"
  136.       TabPicture(6)   =   "frmSearchengine.frx":0972
  137.       Tab(6).ControlEnabled=   -1  'True
  138.       Tab(6).Control(0)=   "DirectHitBrowser"
  139.       Tab(6).Control(0).Enabled=   0   'False
  140.       Tab(6).ControlCount=   1
  141.       TabCaption(7)   =   "ThunderStone"
  142.       TabPicture(7)   =   "frmSearchengine.frx":098E
  143.       Tab(7).ControlEnabled=   0   'False
  144.       Tab(7).Control(0)=   "ThunderStoneBrowser"
  145.       Tab(7).ControlCount=   1
  146.       TabCaption(8)   =   "Hot Bot"
  147.       TabPicture(8)   =   "frmSearchengine.frx":09AA
  148.       Tab(8).ControlEnabled=   0   'False
  149.       Tab(8).Control(0)=   "HotBotBrowser"
  150.       Tab(8).ControlCount=   1
  151.       TabCaption(9)   =   "Ask Jeeves"
  152.       TabPicture(9)   =   "frmSearchengine.frx":09C6
  153.       Tab(9).ControlEnabled=   0   'False
  154.       Tab(9).Control(0)=   "AskJeevesBrowser"
  155.       Tab(9).ControlCount=   1
  156.       TabCaption(10)  =   "Netscape"
  157.       TabPicture(10)  =   "frmSearchengine.frx":09E2
  158.       Tab(10).ControlEnabled=   0   'False
  159.       Tab(10).Control(0)=   "NetScapeBrowser"
  160.       Tab(10).ControlCount=   1
  161.       TabCaption(11)  =   "Info Seek"
  162.       TabPicture(11)  =   "frmSearchengine.frx":09FE
  163.       Tab(11).ControlEnabled=   0   'False
  164.       Tab(11).Control(0)=   "InfoSeekBrowser"
  165.       Tab(11).ControlCount=   1
  166.       Begin SHDocVwCtl.WebBrowser HotBotBrowser 
  167.          Height          =   7215
  168.          Left            =   -74880
  169.          TabIndex        =   1
  170.          Top             =   720
  171.          Width           =   10095
  172.          ExtentX         =   17806
  173.          ExtentY         =   12726
  174.          ViewMode        =   0
  175.          Offline         =   0
  176.          Silent          =   0
  177.          RegisterAsBrowser=   0
  178.          RegisterAsDropTarget=   1
  179.          AutoArrange     =   0   'False
  180.          NoClientEdge    =   0   'False
  181.          AlignLeft       =   0   'False
  182.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  183.          Location        =   ""
  184.       End
  185.       Begin SHDocVwCtl.WebBrowser AskJeevesBrowser 
  186.          Height          =   7215
  187.          Left            =   -74880
  188.          TabIndex        =   2
  189.          Top             =   720
  190.          Width           =   10095
  191.          ExtentX         =   17806
  192.          ExtentY         =   12726
  193.          ViewMode        =   0
  194.          Offline         =   0
  195.          Silent          =   0
  196.          RegisterAsBrowser=   0
  197.          RegisterAsDropTarget=   1
  198.          AutoArrange     =   0   'False
  199.          NoClientEdge    =   0   'False
  200.          AlignLeft       =   0   'False
  201.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  202.          Location        =   ""
  203.       End
  204.       Begin SHDocVwCtl.WebBrowser NetScapeBrowser 
  205.          Height          =   7215
  206.          Left            =   -74880
  207.          TabIndex        =   3
  208.          Top             =   720
  209.          Width           =   10095
  210.          ExtentX         =   17806
  211.          ExtentY         =   12726
  212.          ViewMode        =   0
  213.          Offline         =   0
  214.          Silent          =   0
  215.          RegisterAsBrowser=   0
  216.          RegisterAsDropTarget=   1
  217.          AutoArrange     =   0   'False
  218.          NoClientEdge    =   0   'False
  219.          AlignLeft       =   0   'False
  220.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  221.          Location        =   ""
  222.       End
  223.       Begin SHDocVwCtl.WebBrowser InfoSeekBrowser 
  224.          Height          =   7215
  225.          Left            =   -74880
  226.          TabIndex        =   4
  227.          Top             =   720
  228.          Width           =   10095
  229.          ExtentX         =   17806
  230.          ExtentY         =   12726
  231.          ViewMode        =   0
  232.          Offline         =   0
  233.          Silent          =   0
  234.          RegisterAsBrowser=   0
  235.          RegisterAsDropTarget=   1
  236.          AutoArrange     =   0   'False
  237.          NoClientEdge    =   0   'False
  238.          AlignLeft       =   0   'False
  239.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  240.          Location        =   ""
  241.       End
  242.       Begin SHDocVwCtl.WebBrowser YahooBrowser 
  243.          Height          =   7215
  244.          Left            =   -74880
  245.          TabIndex        =   5
  246.          Top             =   720
  247.          Width           =   10095
  248.          ExtentX         =   17806
  249.          ExtentY         =   12726
  250.          ViewMode        =   0
  251.          Offline         =   0
  252.          Silent          =   0
  253.          RegisterAsBrowser=   0
  254.          RegisterAsDropTarget=   1
  255.          AutoArrange     =   0   'False
  256.          NoClientEdge    =   0   'False
  257.          AlignLeft       =   0   'False
  258.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  259.          Location        =   ""
  260.       End
  261.       Begin SHDocVwCtl.WebBrowser ExciteBrowser 
  262.          Height          =   7215
  263.          Left            =   -74880
  264.          TabIndex        =   6
  265.          Top             =   720
  266.          Width           =   10455
  267.          ExtentX         =   18441
  268.          ExtentY         =   12726
  269.          ViewMode        =   0
  270.          Offline         =   0
  271.          Silent          =   0
  272.          RegisterAsBrowser=   0
  273.          RegisterAsDropTarget=   1
  274.          AutoArrange     =   0   'False
  275.          NoClientEdge    =   0   'False
  276.          AlignLeft       =   0   'False
  277.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  278.          Location        =   ""
  279.       End
  280.       Begin SHDocVwCtl.WebBrowser AltaVistaBrowser 
  281.          Height          =   7215
  282.          Left            =   -74880
  283.          TabIndex        =   7
  284.          Top             =   720
  285.          Width           =   10095
  286.          ExtentX         =   17806
  287.          ExtentY         =   12726
  288.          ViewMode        =   0
  289.          Offline         =   0
  290.          Silent          =   0
  291.          RegisterAsBrowser=   0
  292.          RegisterAsDropTarget=   1
  293.          AutoArrange     =   0   'False
  294.          NoClientEdge    =   0   'False
  295.          AlignLeft       =   0   'False
  296.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  297.          Location        =   ""
  298.       End
  299.       Begin SHDocVwCtl.WebBrowser LycosBrowser 
  300.          Height          =   7215
  301.          Left            =   -74880
  302.          TabIndex        =   8
  303.          Top             =   720
  304.          Width           =   10095
  305.          ExtentX         =   17806
  306.          ExtentY         =   12726
  307.          ViewMode        =   0
  308.          Offline         =   0
  309.          Silent          =   0
  310.          RegisterAsBrowser=   0
  311.          RegisterAsDropTarget=   1
  312.          AutoArrange     =   0   'False
  313.          NoClientEdge    =   0   'False
  314.          AlignLeft       =   0   'False
  315.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  316.          Location        =   ""
  317.       End
  318.       Begin SHDocVwCtl.WebBrowser DogPileBrowser 
  319.          Height          =   7215
  320.          Left            =   -74880
  321.          TabIndex        =   9
  322.          Top             =   720
  323.          Width           =   10095
  324.          ExtentX         =   17806
  325.          ExtentY         =   12726
  326.          ViewMode        =   0
  327.          Offline         =   0
  328.          Silent          =   0
  329.          RegisterAsBrowser=   0
  330.          RegisterAsDropTarget=   1
  331.          AutoArrange     =   0   'False
  332.          NoClientEdge    =   0   'False
  333.          AlignLeft       =   0   'False
  334.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  335.          Location        =   ""
  336.       End
  337.       Begin SHDocVwCtl.WebBrowser LookSmartBrowser 
  338.          Height          =   7215
  339.          Left            =   -74880
  340.          TabIndex        =   10
  341.          Top             =   720
  342.          Width           =   10095
  343.          ExtentX         =   17806
  344.          ExtentY         =   12726
  345.          ViewMode        =   0
  346.          Offline         =   0
  347.          Silent          =   0
  348.          RegisterAsBrowser=   0
  349.          RegisterAsDropTarget=   1
  350.          AutoArrange     =   0   'False
  351.          NoClientEdge    =   0   'False
  352.          AlignLeft       =   0   'False
  353.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  354.          Location        =   ""
  355.       End
  356.       Begin SHDocVwCtl.WebBrowser DirectHitBrowser 
  357.          Height          =   7215
  358.          Left            =   120
  359.          TabIndex        =   11
  360.          Top             =   720
  361.          Width           =   10095
  362.          ExtentX         =   17806
  363.          ExtentY         =   12726
  364.          ViewMode        =   0
  365.          Offline         =   0
  366.          Silent          =   0
  367.          RegisterAsBrowser=   0
  368.          RegisterAsDropTarget=   1
  369.          AutoArrange     =   0   'False
  370.          NoClientEdge    =   0   'False
  371.          AlignLeft       =   0   'False
  372.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  373.          Location        =   ""
  374.       End
  375.       Begin SHDocVwCtl.WebBrowser ThunderStoneBrowser 
  376.          Height          =   7215
  377.          Left            =   -74880
  378.          TabIndex        =   12
  379.          Top             =   720
  380.          Width           =   10095
  381.          ExtentX         =   17806
  382.          ExtentY         =   12726
  383.          ViewMode        =   0
  384.          Offline         =   0
  385.          Silent          =   0
  386.          RegisterAsBrowser=   0
  387.          RegisterAsDropTarget=   1
  388.          AutoArrange     =   0   'False
  389.          NoClientEdge    =   0   'False
  390.          AlignLeft       =   0   'False
  391.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  392.          Location        =   ""
  393.       End
  394.       Begin SHDocVwCtl.WebBrowser exciteBrowser1 
  395.          Height          =   7215
  396.          Left            =   -74880
  397.          TabIndex        =   16
  398.          Top             =   720
  399.          Width           =   10095
  400.          ExtentX         =   17806
  401.          ExtentY         =   12726
  402.          ViewMode        =   0
  403.          Offline         =   0
  404.          Silent          =   0
  405.          RegisterAsBrowser=   0
  406.          RegisterAsDropTarget=   1
  407.          AutoArrange     =   0   'False
  408.          NoClientEdge    =   0   'False
  409.          AlignLeft       =   0   'False
  410.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  411.          Location        =   ""
  412.       End
  413.    End
  414.    Begin VB.Label Label1 
  415.       BackColor       =   &H00000000&
  416.       Caption         =   "Address:"
  417.       ForeColor       =   &H000000FF&
  418.       Height          =   255
  419.       Left            =   2760
  420.       TabIndex        =   23
  421.       Top             =   120
  422.       Width           =   615
  423.    End
  424.    Begin VB.Label lblSearchFor 
  425.       BackColor       =   &H00000000&
  426.       Caption         =   "Search For:"
  427.       ForeColor       =   &H000000FF&
  428.       Height          =   255
  429.       Left            =   -1725
  430.       TabIndex        =   14
  431.       Top             =   -240
  432.       Width           =   975
  433.    End
  434. Attribute VB_Name = "frmSmfSearchEngine"
  435. Attribute VB_GlobalNameSpace = False
  436. Attribute VB_Creatable = False
  437. Attribute VB_PredeclaredId = True
  438. Attribute VB_Exposed = False
  439. Private Sub cmdSearch_Click()
  440. frmSmfSearchload.Show
  441. Unload frmSmfSearchEngine
  442. searchnetscape = "http://search.netscape.com/cgi-bin/search?search=" + txtsearch.Text
  443. searchyahoo = "http://ink.yahoo.com/bin/query?p=" & txtsearch.Text & "&hc=0&hs=0"
  444. searchDogpile = "http://www.dogpile.com/texis/search?q=" + txtsearch.Text + "&fs=web&to=thirly"
  445. searchHotBot = "http://www.hotbot.com/?MT=" + txtsearch + "&SM=MC&DV=0&lg=any&DC=10&DE=2&BT=H"
  446. searchInfoSeek = "http://infoseek.go.com/titles?qt=" + txtsearch + "&col=WW&pns=l&lk=noframes"
  447. searchaskjeeves = "http://www.askjeeves.com/main/askjeeves.asp?ask=" + txtsearch.Text + "&origin=&qsource=0&site_name=Jeeves&metssearch=tes"
  448. searchgoto = "http://www.goto.com/d/search/;$sessionid$AQWZ5ZIAAFSV3QFIEEWQPUQ?type=home&Keywords=" + txtsearch.Text
  449. searchthunderstone = "http://search.thunderstone.com/texis/websearch/?q=" + txtsearch.Text + "&may=20&dsbu=1"
  450. searchabout = "http://search.about.com/scripts/query70.asp?terms=" + txtsearch.Text
  451. searchexcite = "http://search.excite.com/search.gw?search=" + txtsearch.Text
  452. searchlooksmart = "http://www.looksmart.com/r_search?look=&searck=&key=" + txtsearch.Text
  453. searchAltavista = "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&style=stext&q=" + txtsearch.Text
  454. searchDirecthit = "http://www.directhit.com/fcgi-bin/TopTenDemo.fcg?cmd=demo_qry&oose=1&qry=" + txtsearch.Text
  455. searchlycos = "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" + txtsearch.Text
  456. YahooBrowser.Navigate searchyahoo
  457. exciteBrowser1.Navigate searchexcite
  458. AltaVistaBrowser.Navigate searchAltavista
  459. LycosBrowser.Navigate searchlycos
  460. DogPileBrowser.Navigate searchDogpile
  461. LookSmartBrowser.Navigate searchlooksmart
  462. ThunderStoneBrowser.Navigate searchthunderstone
  463. HotBotBrowser.Navigate searchHotBot
  464. AskJeevesBrowser.Navigate searchaskjeeves
  465. NetScapeBrowser.Navigate searchnetscape
  466. InfoSeekBrowser.Navigate searchInfoSeek
  467. DirectHitBrowser.Navigate searchDirecthit
  468. End Sub
  469. Private Sub Command1_Click()
  470. On Error Resume Next
  471. If SSTab1.Tab = 0 Then YahooBrowser.GoBack
  472. On Error Resume Next
  473. If SSTab1.Tab = 10 Then NetScapeBrowser.GoBack
  474. On Error Resume Next
  475. If SSTab1.Tab = 4 Then DogPileBrowser.GoBack
  476. On Error Resume Next
  477. If SSTab1.Tab = 8 Then HotBotBrowser.GoBack
  478. On Error Resume Next
  479. If SSTab1.Tab = 3 Then LycosBrowser.GoBack
  480. On Error Resume Next
  481. If SSTab1.Tab = 11 Then InfoSeekBrowser.GoBack
  482. On Error Resume Next
  483. If SSTab1.Tab = 7 Then ThunderStoneBrowser.GoBack
  484. On Error Resume Next
  485. If SSTab1.Tab = 9 Then AskJeevesBrowser.GoBack
  486. On Error Resume Next
  487. If SSTab1.Tab = 6 Then DirectHitBrowser.GoBack
  488. On Error Resume Next
  489. If SSTab1.Tab = 5 Then LookSmartBrowser.GoBack
  490. On Error Resume Next
  491. If SSTab1.Tab = 2 Then AltaVistaBrowser.GoBack
  492. On Error Resume Next
  493. If SSTab1.Tab = 1 Then ExciteBrowser.GoBack
  494. End Sub
  495. Private Sub Command2_Click()
  496. On Error Resume Next
  497. If SSTab1.Tab = 0 Then YahooBrowser.Gofoward
  498. On Error Resume Next
  499. If SSTab1.Tab = 10 Then NetScapeBrowser.Gofoward
  500. On Error Resume Next
  501. If SSTab1.Tab = 4 Then DogPileBrowser.Gofoward
  502. On Error Resume Next
  503. If SSTab1.Tab = 8 Then HotBotBrowser.Gofoward
  504. On Error Resume Next
  505. If SSTab1.Tab = 3 Then LycosBrowser.Gofoward
  506. On Error Resume Next
  507. If SSTab1.Tab = 11 Then InfoSeekBrowser.Gofoward
  508. On Error Resume Next
  509. If SSTab1.Tab = 7 Then ThunderStoneBrowser.Gofoward
  510. On Error Resume Next
  511. If SSTab1.Tab = 9 Then AskJeevesBrowser.Gofoward
  512. On Error Resume Next
  513. If SSTab1.Tab = 6 Then DirectHitBrowser.Gofoward
  514. On Error Resume Next
  515. If SSTab1.Tab = 5 Then LookSmartBrowser.Gofoward
  516. On Error Resume Next
  517. If SSTab1.Tab = 2 Then AltaVistaBrowser.Gofoward
  518. On Error Resume Next
  519. If SSTab1.Tab = 1 Then ExciteBrowser.Gofoward
  520. End Sub
  521. Private Sub Command3_Click()
  522. On Error Resume Next
  523. If SSTab1.Tab = 0 Then YahooBrowser.Stop
  524. If SSTab1.Tab = 10 Then NetScapeBrowser.Stop
  525. If SSTab1.Tab = 4 Then DogPileBrowser.Stop
  526. If SSTab1.Tab = 8 Then HotBotBrowser.Stop
  527. If SSTab1.Tab = 3 Then LycosBrowser.Stop
  528. If SSTab1.Tab = 11 Then InfoSeekBrowser.Stop
  529. If SSTab1.Tab = 7 Then ThunderStoneBrowser.Stop
  530. If SSTab1.Tab = 9 Then AskJeevesBrowser.Stop
  531. If SSTab1.Tab = 6 Then DirectHitBrowser.Stop
  532. If SSTab1.Tab = 5 Then LookSmartBrowser.Stop
  533. If SSTab1.Tab = 2 Then AltaVistaBrowser.Stop
  534. If SSTab1.Tab = 1 Then ExciteBrowser.Stop
  535. End Sub
  536. Private Sub Command4_Click()
  537. FavoriteAddress = txtlocation.Text
  538. Open App.Path + "\Favorites" For Append As #1
  539. Write #1, FavoriteAddress
  540. Close #1
  541. End Sub
  542. Private Sub SSTab1_Mouseup(Button As Integer, Shift As Integer, x As Single, y As Single)
  543. If SSTab1.Tab = 0 Then txtlocation.Text = YahooBrowser.LocationURL
  544. If SSTab1.Tab = 10 Then txtlocation.Text = NetScapeBrowser.LocationURL
  545. If SSTab1.Tab = 4 Then txtlocation.Text = DogPileBrowser.LocationURL
  546. If SSTab1.Tab = 8 Then txtlocation.Text = HotBotBrowser.LocationURL
  547. If SSTab1.Tab = 3 Then txtlocation.Text = LycosBrowser.LocationURL
  548. If SSTab1.Tab = 11 Then txtlocation.Text = InfoSeekBrowser.LocationURL
  549. If SSTab1.Tab = 7 Then txtlocation.Text = ThunderStoneBrowser.LocationURL
  550. If SSTab1.Tab = 9 Then txtlocation.Text = AskJeevesBrowser.LocationURL
  551. If SSTab1.Tab = 6 Then txtlocation.Text = DirectHitBrowser.LocationURL
  552. If SSTab1.Tab = 5 Then txtlocation.Text = LookSmartBrowser.LocationURL
  553. If SSTab1.Tab = 2 Then txtlocation.Text = AltaVistaBrowser.LocationURL
  554. If SSTab1.Tab = 1 Then txtlocation.Text = ExciteBrowser.LocationURL
  555. End Sub
  556. Private Sub Timer1_Timer()
  557. Timer1.Enabled = False
  558. searchnetscape = "http://search.netscape.com/cgi-bin/search?search=" + txtsearch.Text
  559. searchyahoo = "http://ink.yahoo.com/bin/query?p=" & txtsearch.Text & "&hc=0&hs=0"
  560. searchDogpile = "http://www.dogpile.com/texis/search?q=" + txtsearch.Text + "&fs=web&to=thirly"
  561. searchHotBot = "http://www.hotbot.com/?MT=" + txtsearch + "&SM=MC&DV=0&lg=any&DC=10&DE=2&BT=H"
  562. searchInfoSeek = "http://infoseek.go.com/titles?qt=" + txtsearch '+ "&col=WW&pns=l&lk=noframes"
  563. searchaskjeeves = "http://www.askjeeves.com/main/askjeeves.asp?ask=" + txtsearch.Text + "&origin=&qsource=0&site_name=Jeeves&metssearch=tes"
  564. searchgoto = "http://www.goto.com/d/search/;$sessionid$AQWZ5ZIAAFSV3QFIEEWQPUQ?type=home&Keywords=" + txtsearch.Text
  565. searchthunderstone = "http://search.thunderstone.com/texis/websearch/?q=" + txtsearch.Text + "&may=20&dsbu=1"
  566. searchabout = "http://search.about.com/scripts/query70.asp?terms=" + txtsearch.Text + "&trail=&Site=home&SUName=home&COB=home&TopNode=%2F"
  567. searchexcite = "http://search.excite.com/search.gw?search=" + txtsearch.Text
  568. searchlooksmart = "http://www.looksmart.com/r_search?look=&searck=&key=" + txtsearch.Text
  569. searchAltavista = "http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&style=stext&q=" + txtsearch.Text
  570. searchDirecthit = "http://www.directhit.com/fcgi-bin/TopTenDemo.fcg?cmd=demo_qry&oose=1&qry=" + txtsearch.Text
  571. searchlycos = "http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" + txtsearch.Text
  572. YahooBrowser.Navigate searchyahoo
  573. exciteBrowser1.Navigate searchexcite
  574. AltaVistaBrowser.Navigate searchAltavista
  575. LycosBrowser.Navigate searchlycos
  576. DogPileBrowser.Navigate searchDogpile
  577. LookSmartBrowser.Navigate searchlooksmart
  578. ThunderStoneBrowser.Navigate searchthunderstone
  579. HotBotBrowser.Navigate searchHotBot
  580. AskJeevesBrowser.Navigate searchaskjeeves
  581. NetScapeBrowser.Navigate searchnetscape
  582. InfoSeekBrowser.Navigate searchInfoSeek
  583. DirectHitBrowser.Navigate searchDirecthit
  584. End Sub
  585. Private Sub txtsearch_KeyPress(KeyAscii As Integer)
  586.     Const Numbers$ = " "
  587.     If KeyAscii <> 8 Then
  588.         If InStr(Numbers, Chr(KeyAscii)) = 1 Then
  589.             'txtSearch.text = txtSearch.text + "+"
  590.             KeyAscii = 43
  591.             Exit Sub
  592.         End If
  593.     End If
  594. End Sub
  595. Private Sub YahooBrowser_StatusTextChange(ByVal Text As String)
  596. txtaddress.Text = Text
  597. txtlocation = YahooBrowser.LocationURL
  598. End Sub
  599. Private Sub exciteBrowser_StatusTextChange(ByVal Text As String)
  600. txtaddress.Text = Text
  601. txtlocation = ExciteBrowser.LocationURL
  602. End Sub
  603. Private Sub AltaVistaBrowser_StatusTextChange(ByVal Text As String)
  604. txtaddress.Text = Text
  605. txtlocation = AltaVistaBrowser.LocationURL
  606. End Sub
  607. Private Sub LycosBrowser_StatusTextChange(ByVal Text As String)
  608. txtaddress.Text = Text
  609. txtlocation = LycosBrowser.LocationURL
  610. End Sub
  611. Private Sub DogPileBrowser_StatusTextChange(ByVal Text As String)
  612. txtaddress.Text = Text
  613. txtlocation = DogPileBrowser.LocationURL
  614. End Sub
  615. Private Sub LookSmartBrowser_StatusTextChange(ByVal Text As String)
  616. txtaddress.Text = Text
  617. txtlocation = LookSmartBrowser.LocationURL
  618. End Sub
  619. Private Sub ThunderStoneBrowser_StatusTextChange(ByVal Text As String)
  620. txtaddress.Text = Text
  621. txtlocation = ThunderStoneBrowser.LocationURL
  622. End Sub
  623. Private Sub HotBotBrowser_StatusTextChange(ByVal Text As String)
  624. txtaddress.Text = Text
  625. txtlocation = HotBotBrowser.LocationURL
  626. End Sub
  627. Private Sub AskJeevesBrowser_StatusTextChange(ByVal Text As String)
  628. txtaddress.Text = Text
  629. txtlocation = AskJeevesBrowser.LocationURL
  630. End Sub
  631. Private Sub NetScapeBrowser_StatusTextChange(ByVal Text As String)
  632. txtaddress.Text = Text
  633. txtlocation = NetScapeBrowser.LocationURL
  634. End Sub
  635. Private Sub InfoSeekBrowser_StatusTextChange(ByVal Text As String)
  636. txtaddress.Text = Text
  637. txtlocation = InfoSeekBrowser.LocationURL
  638. End Sub
  639. Private Sub DirectHitBrowser_StatusTextChange(ByVal Text As String)
  640. txtaddress.Text = Text
  641. txtlocation = DirectHitBrowser.LocationURL
  642. End Sub
  643.